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abstrapt 



THE P0P-l9i ASR33/55 TELETYPE TESTS PART 1, IS THE FJRST OP 
A 2 PART tSST PACKAGE USED TO TEST THE ASR33 OR ASR35 TELETYPE 
MHCN ATTACHED TO A PDP-IS, - - - 

PART 1 CONTAINS SEVEN SELECTAI{,E PRQCRANS USED TO TEST THE INP^T 
AND OUTPUT LOGIC, AND THE TELETYPE READER. THE PROGRAMS ARE 
SELECTED AND eONTROLLED BY MEANS Of THE ACCUMOLATOR SWITCHES 
(ACS)> 

THE PROORAHS AVAILABLE AREl 

PR80-iAS|g INPUT LOGIC TESTS 

PR0i;BA816 OUTPUT LOGIC TESTS 

PRGZ-READER TEST 

PRG3-TCST TAPE GENERATOR, PUNCHES gONT|NTS Of LOC 000l| AND 00022. 

PR64;tE8T TAP! 6CNBRAT0R, PUNCHES UNARY COUNT PATTERN TCIT TAPE, 
PRG9.RCADIR EXERCtlER, BINARY COUNT PATTERN. 

PRGboREAOER EXERCISER. READS TAPE PUNCHED WITH ANY 2 0HARACTER8, 
2, RCQUiREHENTS 

2.1 EQUIPMENT 

A. STANDARD POP-19 

B. ASR39 OR ASR30 TELETYPE 

2.2 STORAGE 

* \ •- 

LOCATION 00000 THROUGH 01919 ARE UfCD. 

2.3 PRELIMINARY PROGRAMS 

ALL PROGRAMS NECESSARY TO INSURE CORRECT OPERATION OP BASIC 
PROCESBOR SHOULD HAVE BEEN RUN SUCCESSFULLY. 
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3, 



LOAOINO PROCEOURE 



TO LOAD THE PROGRAM PROCEED AS FOLLOWSI 

A. LOAD THE OBJECT TAPE IN THE TELETYPE RCAOER, OR IN THE 
HUH SPEED READER* IT THE SySTCH HAS SAID READER, 

B. SET aOORESS switches TO 177B0, ' 

C. SET BANK SWITCH TO "ON" PdlltlON 
0. PRI88 "RESET" 

E. PRESS "READ IN" 

F, THE PROCRAM WIUU LOAD AND HALT WITH AC » 777777 IF 
PR06RAM LOADED CORRECTLY, IF'THE PROCRAM 'HALTS wITH 

*SJ,5/1 LSSISI^IH'^ ""'"' ^*« OCCURRED. REPEAT THE 
L0A0IN6 PROCEDURE I 
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S use PROCCDURe 

\.X use PROCEDURE FOR PRGU 



A. INSURE TEUETYPI IS ON»LlN|, 

B. LOAD BINARY COUNT PATTERN TEST TAPE IN READER, IF TAPE IS 
NOT SJI-IJ^^DJNTO^A LOOP, POSITION TAPE OVER PUNCHCO StCTlON. 

C. TURN ON REAOERi 

D. SET CONSOUE REOISTER DISPLAY SHITOH TO ACi 

E. SET ADDRESS SNITCHES TO 0SIBB, 

r. sEt AC SWITCHES TO 00000B'{SELCCT8 PRQ0), 

a, PRESS I/O RESETi PRESS StART 

H. PROGRAM HALTS AT LOC 00299 TO PERMIT SETTING OP AC SWITCH 

OPTIONS, NORMAL OPERATION IS WITH AC SWITCHES SeT TO 000010. 

THE AC SWITCH OPTIONS FOR THIS PROGRAM AREl 

ACS0I1 HALTS PROGRAM AT LOC 0B320, AT THE EnO OF CURRENT 
ROUTINE, THE NUMBER OF THE ROUTINE COMPLETED IS 

OlfPLAYEO IN AC, TO PROCEED, PRESS CONTINUE, 

ACSiBl SELECT ROUTINf WHOSE NUMBER IS SET IN ACSi2 
THROUGH AC8i7, ROUTINE IS SEUECTEO U^ON tHE 
ROUTINE'S COMPLETION, 

ACS8IV LOOP PROGRAM. ENTIRE PROGRAM JS REPEATED. 

A0I12 THRU ACSt? • NUMBER OF ROUTINE TO BE SELECTED. 
ACIl MUST BE 1, 

SrSSMS,n!''5°!!Si*IE 2«:ction under section 9, "program 

DESCRIPTION, « FOR SPECIFIC R0«IINE DESCRIPTIONS,* 

I. PRESS CONTINUE. 

J. PROGRAM IS EXECUTED AND HAJ.TS AT LOC 0B27S, PROGRAM 

ENO HALT, IF NO ONIONS ArI SET. OnrNOERRoSs OCCUR, 

NOTE 

ERRORS ARE INDICATED BY PROGRAM HALTS, REFER TO SECTION 

OESCRIPlKt" '^*^"'" " -"^""' -'^' "^^"^^ "^'-'^^ *'^P 
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4.2 



USE PNOCCDURC POR PR61 



A. INSURE TELETYPE IS ON»LlN|. 

Bi INSURE THAT READER IS OFF, 

C. INSURC THAT THERE IS SUFFICIENT PAPER IN TELEPRINTER, 

D. SET CONSOLE RC6ISTER OISPUY SWITCH TO ACi 

E. SET ADDRESS SMITCHES TO 9ii9»Z, 

F. SET AC SWITCHES TO 000001, ' (SELECTS PR61) 

G. P(<|88 I/O RESETl PRESS START, 

H. PROGRAM HALTS AT LOC 00233« FOR SETTINS OF AC SWITCH 

OPTIONS. NORMAL OPERATION' IS W|TH AC SWITCHES SET TO 000010, 

THE AC SWITCH OPT.l.ONS FOR IHI? PROgRAM AREl 

ACSS*; HALTS PROORAH AT LOC 00320, AT END OF CURRINT 
ROUTINE, NUMBIR OF ROUTINE JUST COMPLETED IS 
DISPLAYED IN AC, TO PROCECOi PRESS CONTINUE. 

ACSlil SELECT ROUTINE WHOSE NUMBER IS SET IN ACSIS 
THROUGH ACS17, ROUTINE IS SELECTED U^ON 
COMPLETION Of QURRiNT ROUTINE, 

ACSaal LOOP PROGRAM. ENTIRE PROGRAM IS REPEATED. 

ACIi2 THRU ACS17 • NUMBER pF ROUTINE TO BE SELECTED, AOS| 
MUST BE I. iS|E SECTION ? FOR DESCRIPTIONS,) 

I, PRESS CONTINUE, 

J. PHO^RAM IS EXfigUTEO AND HALTS AT 1,00 00279| PROGRAM END 

HALTS. IF NO OPTIONS ARESET, OR IF'nO EMoRS OCCUR. 

(ICE SECTIONS 9,i,X AND §.| FOR HALTS.) 



PACE 9 
^9 USE PROCCOURE FOR PRC2 



A. INSURE TEL.CTYPE IS ON-UINE, 

B. LOAD BlNARy COUNT PATTERN TEST TAPE IN READER, [f TAPE 
IS NOT SPLICED INTO A LOOP» POSITION TAPE OVER PUfiCHEP 
sCCTIQN. not on THE LEAOEft, 

C. TURN ON READER, 

0. SET CONSOLE REGISTER DISPLAY SWITCH TO AC. 
E. SCf ADDRESS SWITCHES TO 00800, 

r. SET AC SMITCHES TO 00000t*iSELCCTS PRG2), 
G. PRESS I/O RESETl PRESS START, 

Hi program halts at LOC 0aa33"FOR SETTING OF AC SWITCH OPTIONS, 
NORHAl OPERATION IS WITH AC SWITCHES SET TO 000000, 

THE AS SWITCH OPTIONS FOR THIS PROGRAM ARC I 

ACI0B| HALTS PROGRAM AT LOC 00320, U^ON COMPLETION 
OF CURRENT ROUTINE, NUMBER 0? COMPLEttO 
ROUTINE IS DISPLAYED IN AC, TO PROCEED, 
PRESS CONTINUE! 

AOtlBl SELECT ROUTINI WHOSE NUMBER IS SET IN ACS912 
THROUGH ACS17, ROUTINE IS SEIECTEO U^ON 
ROUTINE'S C0H!»|,ET10N, 

AdiaiS, LOOP PROGRAM, ENTIRE PROGRAM IS REPEATED, 

ACI12 THRU 17 • NUMBER OF ROUTINE TO BE 8C|,ECTCD, 

ACSl MUST BE ^( ISEE lECTION-? FOR DESCRIPTION,) 

1. PRESS CONTINUE, 

J. PROGRAM IS EXECUTED AND HALTS AT LOC 00275, PROGRAM END 
HALT, IF NO OPTIONS ARE SET, OR IF NO ERRlJRS OCCUR, 
(SEE IgCTION J«l,l OR SECfjON §,1 FOR HALTS.) 

4.4 USE PROCEDURE FOR PRG3 



A. iNiURE TELETYPE IS ON-LINE AND FULL DUPLE)( MODE. 

B. TURN OFF TELETYPE REAOERi 

c. LOAD Blank TAPE in puNoh, turn on punch, 

0. DEPOSIT IN LOC 00021 AND 00022<8), THE 8 BIT CODE FOR 
CHARACTERS TO BE PUNCHED, 

E. SET AOQRESS SWITCHES TO 00800, 

F. SET AC SWITCHES TO 000003r (SELECT! PR63) 

G. P«E8S I/O RESET, PRESS START, 

H, PROGRAM PUNCHES TEST TAPE'CONTINUOUSLY UNTIL STOPPED BY USJR, 



PAQC * 
4.9 use PnOCCQURE FOR PRG4 

A, INSURC TEUETYPI JS ON"HNE, 

B, TURN OFF TELETYPE READER. 

C, LOAD SfLANK TAPE IN PUNCH, TURN ON PUNCH, 

D, SET AOORESS SWITCHES TO 0B200t 

E, SET aC SWITCHtB TO 00000*; ' (SELECTS PRB4> 
r. PRESS I/O RESCTi PRESS START. 

G. PROGRAM PUNCHES BINARY COUNT PATTERN TEST TAPE CONTINUOUSLY 
UNTIL STOPPED Sy USERi 

4.1 USE PRQCCOURE FOR PROS 

A. INSURE TELETYPE IS ON-LINE, 

B. LOAD ilNARY COUNT PATTERN TEST TAPE IN READER. IF TAPE 18 
NOT SPLlCiO INTO A LOOPi POSITION TAPE OVER PUNCHED SECTION* 
AND NOT ON THE LEADER. 

C. TURN ON READER I 

0. SET CONSOLE REGISTER DISPLAY SNITCH TO AC* 
E. sIt address SWITCHES TO 00200. 

p, SET AC SWITCHES TO 000009i ' (SELECTS PR99) 
6. PRClS'r/O RESET* PRESS START, 

H. PilOGRAM STARTS 'READING TAPf, SET AC SWITCHES TO 040000 
to CAUSE PROGRAM TO HAlT-ON«eRROR. 

1. PR06RAH RUNS OONTlNUOUSLYi UNLCSS ERRORS OCCURi OR AC 
SWITCH OPTIONS CAUSE A HALT, THE AC SWITCH OPTIONS FOR 
THIS PROGRAM AREI 

ADIBiV PROfiRAH HALTS at LOC 006S2, AC DISPLAYS THE 
ACCUMULATED ERROR COUNT* IF ANY, 

ACS3a|, HALT-ON"ERRORi BAD CHARACTER IS DISPLAYED IN AC. 

ACS4«|. PROGRAM READS TAPE WITH RANDOM DURATION STALLS 
AFTER EACH CHARACTER," 

ACISal PROGRAM LOCKS ON CI^RRENT STALL BEING USED (AC4 

MUST BE 1>, (SEESECTION S.lti OR 6,% FOR HALTS,) 
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4.7 use PROCeOURE FOR PR66 



A. INSURt TEUETrPE JS ON»l.INEi 

B. LOAD READER WITH 2 CHARACTER TEST TAPE, 

C. TURN ON READER, 

D. DEPOSIT IN LOC 00021 AND 0B022 THE S-BIT COOES TOR THE 
CHARACTERS PUNCHED IN THl"tE8T TAPE. 

E. SET CONSOLE RE6ISTER DISPLAY SWITCH TO ACi 
r. SET ADDRESS SWITCHES TO 00200, 

G. SET AC SWITCHES TO 000006i ' (SELECTS PRG6) 

H, PRESS I/O RESETj PRESS START, 

I. PRDCRAH STARTS READING T*P|, SET AC SWITCHES TO D40000 

TO CAUSE PROGRAM TO HALT»ON-.ERROR, * ' 

J, PR06RAM RUNS CONTINUOUSLY! UNLESS ERRORS OCCUR) OR IF 

CAUSED TO HALT BY AC SWITCH OPTIONS, 

THE AC SWITCH OPTIONS FOR THIS PROGRAM AREl 

AC80II1 PROGRAM HALTS AT LOC 00652, AC DISPLAYS THE 
ACCUMULATED ERROR COUNT. IF ANY, 

ACI9P4, HALT-ON-ERRORi BAD CHARACTER IS DISPLAYED IN AC, 

ACf«»l PROGRAM READS TAPE WITH RANDOM DURATION STALLS 
AFTER EACH CHARACTER,' 

AC85t^ PROGRAM LOCKS ON CURRENT STALL BEING USED 

<ACS4 MUST BE i>, (SEE SECTIONS 5,i,£ OR 6,t FOR HALTS,) 
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9. OPERAllNC PROCEOURE 

5,1 PROGRAM ANO/OR OPERATOR ACTION 

5,1,1 NORMAL HALTS 

LOG 00833 OPTION SET HA^T^ POCURS DURING PRG0, PRGli 
AND PR02 TO PERMIT SETTING OF QPTIONSi SET 
OPTIONS DESIR£6 ANPPRESS CONTINUE. 

LOC 00879 PROGRAM END HA|,T. OCQURS AT END OF PRGS, 
PR9i, OR PR82 jr NO "LOOP PROGRAM" OPTION 
JS SET, SETOESIRED OPTIONS AND PRESS CON- 
TINUE, IF N0"6PT!0NS are SETi THIS HAUT 
REOCCURS. 

LOC 00320 ROUTINE END HAI^T, OCCURS AT END OF CURRENT 
ROUTINE during' PRG0f PRGli OR PRG2 EXECUTION 
IF ACS0 IS on; AC'DISPLAYS ROUTINE NUMBER. 
TO PROCEED. PR|SS CONTINUE, 

LOC 0069S HALT. OCCURS DURING PRG5 AND PRG6 IF AC80 

IS ON. THE ACCUMULATED ERROR COUNT, (F ANYi 
IS DISPLAYED 0? THE AC, TO PROCEED, PRESS 
CONTINUE. 
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6, ERRORS 



6,% ERROR HALJS AND DESCRIPTION 



LOG IB177 



LQC 00396 



LCC 0894S 



LOQ 0e$43 



INCORRECT PROGRAM NUMBER SELECTED. SET THE 
CORRECT PROGRAM NWM8ER IN ACSi4 THROUOH ACS17 
AND PRESS CONTINUE, 

NONbEXISTENT ROUTINE NUMBERS SEUECTEDs SET 
THE CORRECT ROUTINE NUMBER IN ACSi? THROUGH 
ACS17 AND PRESS CONTINUE, 

SYNC ERROR, OCCURS DURING PRC2 AND P^SS ^HEN 
THE "SYNC" SUBROUTINE DOES NOT FIND AN ALL 3.S 



CHARACTER WITHIN 2!»6 CHARACTERS, 
CONTINUE, 



TO RETRY, PRCSS 



PR55f PRG6 READ ERROR, OCCURS ir REAP ERROR IS 
DETECTED AND ACSS is ON, 3AD CHARACTER IS 0!S= 
PUAYED IN ACi PRESS CONTINUE, 



LOC 0014? 
LOC 00174 



LOC 00741 



LOC 00769 

LOC 010i0 
LOC 01012 



FOLLOW UP HALT TO PRO? AND PRU READ ERROR, 
EXPECTED CHARACTER IS DISPLAYED I-^ AC^ 

ALIGN ERROR HAl,T, OCCURS OURING PROS |r THE 
"ALIGN" SUiROyjiNC CANNOT MATCH TH| DATA READ 
FROM PAPER TAP| WITH DATA STORED IN LOC 00021 
AND 00022{8>," CHEgk THAT CORE DATA iS CORRECT 
AND THAT THt TEST TAPE IS CORRECT AND jN OPER- 
ATING CONDITION, PRESS CONTINUE TO R^TRY, 

PRG0I ROUTINE ERROR HALT, I/O CS^•MANO 
700311 FAILED TO CLEAR THE AC. PRESSING 
CONTINUE enter! SCOPE LOOP THAT SETS YhE 
AC TO ALL ISriSSOfS 700511 COMMAND tS 
CLEAR THE AC ANO REPEATS, PROGRAM MU^T 
BE RESTARTED MANUALLY, 

PRe0, ROUTINE 3, ERROR HALT, AT LEAST 200 MS AFTER 
700322 COMMAND THE READER FLAG FAILED TO SET, 
OR KSF INSTRUCTION IS FAILING, PRESSING CON- 
TINUE REPEAT? THE TESTi 



PR60, ROUTINI i ERROR HALT A, 
ROUTINE 1 ERROR HALT, 



SAME A§ PRG0, 



PRC0, ROUTINE ? ERROR HALT B, KSF FAILURE, 
WITH READER FLAG SET» KSF INSTRUCTION" 
FAILED TO SKlPi, PRESSING CONTINUE ENTERS 
SCOPE LOOP THAT SKIPS ON FLAG CONTINUOUSLY, 
MANUAL RESTART, 
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(6,], CONT'D) 

lOC 01041 
UOC 01043 



LOC 01063 



LOC 01100 



LOC 01131 



LOC 01171 



LOC 01173 



PR60I ROUTINE ? ERROR HALT A. 
ROUTINE 1 ERROR HALT, 



SAME AS PRQ0I 



PRa0» ROUTINE 3 ERROR HALT B. THE 700312 
COMMAND <KRB) FAILED TO RESET THE READER 
FLAG OR THE KSF COMMAND SKIPPED WITH THE 
READER FLAG " IJ, PRESSING CONTINUE ENTERS 
SCOPE LOOP THAt CLEARS THE FLAG AND SKjPS 
ON FLAG CONtlNQoUSLT, MANUAL RESTARTi 

PRO0I ROUTINE 4 ERROR HALT A. UNEXPECTED 
INTERRUPTi AC CONTAINS THE jORS WORDi TURN 
OFF DEVICE CAUSING THE INTERRUPT (OTHER THAN 
THE TELETYPE) I PRESS CONTINUE TO REPEAT TEST, 

PR60I ROUTINE 4 ERROR HALT B, WITH READER 
FLAG ■ li AND INTERRUPT ENABLEDi NO INTERRUPT 
OCCURRED, PRfSSING CONTINUE ENTERS SCOPE LOOP 
THAT TURNS ON INTERRUPT CONTINUOUSLY, MANUAL 
RIJTART, 

PR60. ROUTINE 9 ERROR HALT, TIMING ERROR, 
FLAG NOT 1 110N8 AFTER 700328 COMMANOi 
PRESSING CONTINUE ENTERS SCOPE LOOP THAT 
READS TAPE CONTINUOUSLY TO Al5 IN TIMING 
ADJUSTMENT, 

PR60I ROUTINI I ERROR HALT Ai REREAD |RROR, 
A REREAD OF THE TELETYPE READER BUFFER DID 
NOT MATCH WjTH THE ORIGINAL R^AD, THE "NEW" 
CHARACTER IS DISPLAYED IN AC, PRESS CONTlNUEi 

PRG0I ROUTINE * ERROR HALT 8, FOLLOW UP HALT 

TO PRGB, ROUTINE « ERROR HALT A, THE "OLD" 

CHARACTER li S'lSPLAYEO IN AC. PRESSING CON» 
TINUE RESUMED TESTi 



(6,1 CONT'D) 

LOC 01227 

LOC 01231 

LOC 01891 

LOC 01S7« 



PA6C 11 



PRGl, ROUTINE ERROR HALT A. AT I.EAST 200 MS AFTER 

TLS COMHAND THE PRINTER FLAG FAILED TO SET OR 

TSr COMMAND TAIleO TO SKIP, PRESSING' CONTINUE RETRIES 

TMt Tb5T| 

PRGl, ROUTINE B ERROR HALT B, WITH FLAG • I, 

JSCJ2'^J!*!!'° ^*1'"" TO ^KlPt DRESSING CONTINUE 
ENTERS SCOPE LOOP THAT SKIPS ON FLAG CONTINUOUSLY, 
MANUAL RESTART, 

PRGl, ROUTINE J ERROR HALT, TCF COMMAND FAILED 
TO CLEAR THE F;,AG, OR TSF COMMAND SKIPPED WITH 
FLAG • 0, PRfSSING CONTINUE ENTERS SgOPE LOOP 
THAT CLEARS THE FLAG AND THEN'SKIPS ON FLAG 
CONTINUOUSLY, MANUAL RESTART, 

PRGl, ROUTINE 2 ERROR HALT, TCF COMMAND FAILED 

I2«S^^*2«I^L[fe*'^io PRESSING CONTINUE INTERS 
SCOPE LOOP THAT ISSUES TCF COMMAND CONTINUOUSLY, 
MANUAL RESTART, 



LOC 01517 PRCl, ROUTINE | ERROR HALT A, UNEXPECTED 

INTERRUPT, TURN OFF ANY DEVICE THAT MAY BE 
CAUSING THE INTERRUPT. (THE tCLETYPE READER 
MUST BE OFF,) PREfS OONTINUE TO REPEAT TEST, 

LOC 01S3P PRGl, ROUTINE ? ERROR HALT B, WITH PRINTER/ 
PUNCH FLA<5 • 1 AND INTERRUPT CNABLIO, NO IN- 
TERRUPT OCCURRED, PRfiSSlNO caNTlNUE ENTERS 
SCOPE LOOP THAT TURN8"0N INTERRUPT CONTINU- 
OUSLY, MANUAL RESTART, 

LOC tim PRGl, ROUTINE 4 ERROR HALT, TIMING ERROR, 

rkliSrlf.^J K,JIS2^*n^'' T>-S COMMAND, PRESSING 
CONTINUE ENTERS SCOPE ^OOP THAT RUNS PRINTER 
CONTINUOUSLY TO Alp IN TIMING A0JUSTM|NT, 
MANUAL RESTART, 



(6.1 CONT'D) 
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UOC 01422 
LOC 01624 

LOC 01«93 

LOC 014S5 

LOC 01910 
LOC 01112 



PR02i ROUTINE B ERROR HALT A, READ ERROR, 
BAD CHARACTER IN AC, PRESS CONTINUE, 

PRG2, ROUTINE ERROR HALT 8, POLLOW UP 
HALT TO PR02» ROUTINE » ERROR HALT A, 
EXPECTED CHARACTER 1$ DISPLAYED IN ACi 
PRESSING CONTINUE RESUMES TESTING. 

PRB2# ROUTINE 1 ERROR HALT A. READ ERROR, 
BAD CHARACTER IN AC, PRESS CONTINUE, 

PRCZi ROUTINE % ERROR HALT B, FOLLOW UP 
HALT TO PR02i ROUTINE l ERROR HALT A. 

EXPECTED CHARACTER IS DISPLAYED IN AC, 
PRESS CONTINUE TO RESUME TESTING, 

PRe2. ROUTINE 2 ERROR HALT A, READ ERROR, 
BAD CHARACTER JN AC, PRESS CONTINUE, 

PRB2, ROUTINE 2 ERROR HALT B, FOLLOW UP 
HALT TO PR02i ROUTINE 8 ERROR HALT A, 
EXPECTED CHARAgTiR IS DISPLAYED IN ACi 
PRESS'OONTINUE TO RESUME TESTING, 
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7, RESTRICTIONS 

r ---•«»--•• ^ - - 

7.1 STARTING RESTRICTIONS 



ALU PROGRAMS MUST BE STARTED AT ADDRESS 00200, 
7,2 OPERATING RESTRICTIONS 

PRee AND PRGl MUST HAVE BEEN RUN SUCCESSFULLY PRIOR TO 
EXECUTING ANY OTHER PROGRAM. 

PROBLEMS OETECTED DURING EXECUTION OF PRG0 AND PRGl SHOULD 
BE CORRECTED AS THEY OCCUR, 

S. MISCELLANEOUS 
8.1 EXECUTION TIME 



PR50 EXECUTION TIME! I MIN 15 SEC (MAX) 

PRGl EXECUTION TIMEI 30 SEC (MAX> 

PRG2 EXECUTION TIMEI 20 MIN (MAX) 

PRG3 THROUOH PRG6 AftE CONYINUOUSLY RUN PROGRAMS, 



8.2 TEST TAPES 



MAlNOEC-0»-D2G3-PT BINARY COUNT PATTERN TEfT TAPE IS PROVIDED 

WITH This program, for easy use, the tape should be spaced 

INTO A loop, matching THE PATTERN OF THE SPlISe POINTT 
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9, PROGRAM DESCRIPTION 

THE P0P-19| ASR33/35 TELETYPE TESTS PART 1, CONSJSTS OF 7 
PROGRAMS NUMBERED PROM TO 6, 

9,1 PRG0 - BASIC INPUT LOCIC TESTS 

THIS PROGRAM CONTAINS 7 ROUTINES NUMBERED FROM TO 6 
(OCTAU). 

RTN0 CHECKS THAT lOT 70(83H IS AB|,E TO CI.EAR THE AC, 
DONE 1000 TIMES, 

RTNi CHECKS THAT READER PUAG IS SET 200 MS AFTER 700322 
lOT {SELECT READER), FAH.URC TO SKIP INDICATIS 
THAT'FLAG is NOT SETi OR KSr COMMAND FAILURE TO 
SKIP, DONE 100 TIMES, 

RTN2 CHECKS THAT KSF COMMAND tlOT 7B0301) SKIPS WITH FLAG SET, 
DONE 1000 TIMES, 

RTN3 CHECKS THAT KSF COMMAND (lOT 700301) DOES NOT SKIP 
WITH FLAG ■ 0. DONE 900 TIMES. 

RTN4 CHECKS THAT NO OTHER OEVICE CAN CAUSE AN INTERRUPT 
AND THAT READER IS CAPABLE OF INTERRUPTING. 

RTNS READER TIMING TEST, 

RTN6 READS A CHARAOTCR FROM TAPE AND SAVES IT, U THEN 
REREADS THE TTI STATIgAl,l,T 1000 TIMES TO CHECK FOR 
eONSIStENT READING FROM Ttl,' 256 CHARACTERS ARE 
READ IN THIS MANNER. 
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9.2 PRGl - BASIC OUTPUT l,001C TESTS 



THIS PROGRAM CONTAINS 5 ROUTINES NUMBERED FROM TO 4, 

RTN0 CHECKS THAT PRINTER/PUNCH TLAC IS SET 200 MS AFTER 

tUS COMMAND. FAILURE TO SKIP IN FUAC INDICATES THAT 
fUAG IS NOT SET OR T8f FAILURE, IF tSF SKIPS, 
ROUTINE THEN SKIPS ON FLAG 1000 TIMES TO CHECK 
FOR REUIAiLE SKIPPING, 

RTNl CHECKS THAT TSF COMMAND DOES NOT SKIP WITH FLAG p 0, 
DONE 1000 TIMES, 

RTN2 CHECKS THAT TCF COMMAND IS ABUE TO CLEAR FLAG, 
DONE 100 TIMES, 

RTN3 CHECKS THAT NO OTHER DEVICE CAN INTERRUPT AND THAT 
PRINTER/PUNCH IS ABLE TO INTERRUPT, 

RTN4 TIMING TEST, 
9.9 PRG2 - READER TEST 



this program contains 3 routines numbered from to 2i 

rtn0 read? 40m characters of b|nary count pattern at 
Cull speed, 

rtnl reads 2001 characters of binary count pattern with 
random stalls between characters, 

rtn2 reads 100 random length character blocks, fixed 

STALL BEtWEEN CHARACTERS IN A' BLOCK, STALL IS 
CHANGED FOR EACH BLOCRi AND IS DETERMINED AT RANDOM, 

9,4 PRC3 - TEST TAPE 6RNERAT0R 

THIS PROGRAM PUNCHES TEST TAPE WITH CHARACTERS WHOSE 
CODE iS'B§T IN LOC 00021 AND 00022, 

9,9 PRG4 - TEST TAPE GENERATOR 

PUNCHES BINARY COUNT PATTERN TEST TAPE, 
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9.6 PRC9 ' READER EXERCISER, BINARY COUNT PATTERN 

THIS PROCHAM READS AND CHECKS BINARY COUNT PATTERN TEST TAPE, 
NORHaC TeSt mode is WITH FULI. SPEED OPERATION. ACS4 « X 
GIVES RANDOM STALUE BETWEEN CHARACTERS, ACS5 e 1 LOCKS 
PROGRAM ON CURRENT STALL. UCS4 MUST BE ON), 

9.7 PR66 " READER EXERCISER, LOC 00029, AND 00022 



READS TEST TAPE PUNCHED WITH ANY 2 TEST CHARACTERS, !,0C 
01021 AND 00022 MUST CONTAIN THE COOES FOR CHARACTERS {N 
TEST TA^E. NORMAL TEST MODE IS WITH FULL SPEED OPERATION, 
AC84 « 1 GIVES RANDOM STALLS BETWEEN CNARACTCM) ACS? n i 
LOCKS PROGRAM IN CURRENT STALLi (ACS4 MUST BE ON), 



(LAST PAGE) 
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/PDP-15 AND ASR33/35 TELETYPE TEST - PARTI 

/COPYRIGHT 1969, DIGITAL EQUIPMENT CORP., MaYNaRD, MaSS. 

/ 

/prg0_baSIc input control logic Test, uses reader 
/prqI-baSic output control logic TpsT. USES printer 

/PRG2-READER TEST 

/PRG3-TEST TAPE GENERATOR. PUNCHES CONTENTS OF LOc 0021 AND 0022 
/pRG4-pUNCHES BINARY CqUNT PATTERN TEST TApE. 
/PRG5-READER EXERCISER. BINARY COUNT PATTERN 
/PRG6-READER EXERCISER. READS TaPE PUNCHED WITH ANY 
/ 2 CHARACTERS. LOC 0021 AND 0022 CONTAINS COOES 

/ FOR CHARACTERS IN TaPE . 

/ 

/ACS-OPTIONS 
/ 

/ACS0-HALT AT END OF ROUTINE. RTN NUMBER IN AC FOR PRG0 , PRGl , PRG2 , 
/ -HALT ERROR COUNT IN AC FOR PRG5 aND PRG6 

/ACSI-SElECT routine WHOSE NUMBER IS SET IN ACS12 THROUGH ACS17. 
/ (PRG0,PRG1.PRG2). 

/ACS2-L00P PROGRAM. ( PRG0 , PRGl , PRG2 ) 

/ACS3-HALT ON ERROR. BAD CHARACTER IN AC (PRG5.PRG6) 
/ACS4-STALL <PRG5,PRG6) 
/ACS5-L0CK ON STALL (PRG5,PRG6) 
.EJECT 
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000000 







00026 


000077 


TSTMSK 


77 


00027 


000017 


prghsk 


17 


00030 


777772 


prglim 


-6 


00031 


000000 


prgnum 





00032 


000033 


PSW 


PRGTAB 


00033 


000717 


PRGTAB 


PRG0 


00034 


001201 




prgi 


00035 


001373 




PRG2 


00036 


000571 




PRG3 


00037 


000576 




PRG4 


00040 


000602 




PRG5 


00041 


000611 




PRG6 


00042 


000000 


TEMP 





00043 


000000 


CURTST 





00044 


000000 


RTNNO 





00045 


000000 


NXTST 





00046 


000000 


MSCTR 





00047 


000000 


MILCTR 





00050 


777142 


MILl 


-636 


00051 


000000 


CTRA 





00052 


000000 


CTRB 





00053 


000000 


SCNT 





00054 


777401 


MRBOUT 


-377 


00055 


000000 


PFLAG 





00056 


040000 


SR3MSK 


040000 


00057 


020000 


SR4MSK 


020000 


00060 


010000 


SR5MSK 


010000 


00061 


000001 


Kl 


1 




700322 


KRA=700322 

/ 



.EJECT 
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15TTY1 



00177 






.LOC 177 




00177 


740040 




HLT 




00200 


75PI004 


START 


LAS 




00201 


500027 




AND 


PRGMSK 


00202 


340030 




TAD 


PRGLIM 


00203 


740300 




SMa!SZa 




eS)20A 


600177 




JMP 


177 


00205 


750004 




LAS 




00206 


500027 




AND 


PRGMSK 


00207 


040031 




OAC 


PRGNUm 


00210 


340032 




TAD 


Psw 


00211 


040042 




DAC 


TEMP 


00212 


220042 




LAC* 


TEMP 


00213 


040221 




DAC 


PRGADR 


00214 


100545 




JMS 


MOVE 


00215 


000024 




24 




00216 


000001 




1 




00217 


777776 




-2 




00220 


620221 




JMP* 


.+1 


00221 


000000 


PRGADR 







00233 






.LOC 233 




00233 


750040 


SRSET 


HLTjCLA 




00234 


200020 


GETRDY 


LAC 


kstart 


00235 


040045 




DAC 


NXTST 


00236 


100277 




JMS 


FORWD 


00237 


750004 




LAS 




00240 


742010 




RTL 




00241 


740400 




SNL 




00242 


620043 




JMP* 


CuRtSt 


00243 


750004 




LAS 




00244 


500026 




AND 


TSTMSK 


00245 


740001 




CMA 




00246 


340061 




TAD 


Kl 


00247 


340044 




TAD 


RTNNO 


00250 


751200 




SNAiCLA 




00251 


620043 




JMP* 


CURTST 


00252 


200045 




LAC 


NXTST 


00253 


340061 




Tad 


Kl 


00254 


750200 




szajcla 




00255 


600236 




JMp 


GEtrDY*2 /no 


00256 


750040 


INCRTN 


HLT.'CLa 




00257 


600234 




JMP 
.EJECT 


GETRDY 



/INCORRECT PROGRAM NUMBER 

/READ SWITCHES 

/AND WITH PRG MASK 

/ADO PROGRAM LIMIT 

/VALID PROGRAM NUMBER? 

/NO. 

/YES, READ SWITCHES 

/SAVE PROGRAM NUhBER 
/DEVELOPE PROGRAM 
/ADDRESS. 

/STORE ADDRESS 
/INITIALIZE INTERRUPT 
/AREA 



/SELECT OPTIONS 
/GET ADDR OF 1ST RTN 
/STORE AT NXTST 

/READ SWITCHES 

/SELECT ROUTINE? 

/NO, SjARj MiTH CuRRENt ROUTINE 

/YES, READ SWITCHES 



/IS IT THIS RTN? 
/YES, GO DO IT. 
/NO. 

/Last routine? 



/YES, INCORRECT ROUTINE NUMBER. 
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15TTY1 



00260 


100313 


00261 


750004 


00262 


742010 


00263 


741400 


00?64 


600234 


00265 


200045 


00266 


340061 


00267 


750200 


00270 


600236 


00271 


750004 


00272 


742010 


00273 


751100 


00274 


600234 


00275 


750040 


00276 


600260 


00277 


000000 


00300 


220045 


0030^ 


040044 


00302 


440045 


00303 


200045 


00304 


040042 


00305 


440045 


00306 


200045 


00307 


040043 


00310 


220042 


00311 


040045 


00312 


620277 


00313 


000000 


00314 


750004 


00315 


740100 


00316 


620313 


003I7 


200044 


00320 


740040 


00321 


620313 


00322 


000000 


00323 


220322 


00324 


040042 


00325 


440322 


00326 


220322 


00327 


060042 


00330 


440322 


00331 


754000 


00332 


620322 




100322 



CHAIM 



PRGENO 



rORWD 



/ 

SHALT 



JMS 
LAS 

RTl 

SZl 

JMP 

LAC 

TAD 

S2AICLA 

JMP 

LAS 

RTL 

SPAIClA 

JMP 

HLTiCLA 

JMP 



LAC* 

OAC 

ISZ 

LAC 

DAC 

ISZ 

LAC 

OAC 

LAG* 

DAC 

JMP« 




LAS 
SMA 
JMP* 
LAC 
HLT 
JMP» 
STCTR 

LAC* 

OAC 

ISZ 

LAC» 

DAC» 

ISZ 

CLA!CLL 
JMP* 

SETLOC=JMS STCTR 

.EJECT 



SHALT 



GEtrOY 

NXTST 

Kl 



GETROY+2 /NO, 



GEtRDY 

CHAIN 

NXTST 
RTNNO 
NXTST 

nxtst 

tEMP 

NXTST 

NXTST 

CURTST 

TEMP 

NXTST 

FOrWD 



SHALT 

RTNNO 

SHALT 

STCTR 

TEMP 

STCTR 

STCTR 

TEMP 

STCTR 

STCTR 



/HALT? (SRc) 
/READ SWITCHES 

/ROUTINE SELECT? (SRI) 
/YEs. 



/LAST RTN? 

/YES. 

/LOOP PROGRAM? (SR2) 

/PROG END HALT 



/GET NEXT RTN NO. 
/STORE aT RTNNO 

/set current 
/rtn Number 

/set current 
/routine addr 

/SET NEXT 
/RTN ADDR 
/EXIT 



/READ SW 
/HALT? (SR0) 
/NO, EXIT 

/ROUTINE END HALT, 



/GET LOC ADDrEsS 
/SAVE AT TEMP 

/GET COUNT AND 

/STORE AT DESIRED LOC, 



/EXIT 
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00333 


000000 


DLYMS 







00334 


200023 




Lac 


DELaYM 


nasz'i 


045)046 




OAC 


MSCTR 


00336 


200050 




LAC 


MILl 


00337 


040047 




DAC 


MILCTR 


00340 


440047 




iSSf 


MILCTR 


00341 


600340 




JMP 


. -1 


00342 


440046 




ISH 


MSCTR 


00343 


600336 




JMP 


.-5 


00344 


754000 




claicll 




00345 


620333 




JMP« 


DLyMc; 






/Random 


NUMBER generator' 


00346 


000000 


RANGEN 







00347 


200374 




LAC 


RANDEX 


00350 


541514 




SAD 


(RANTBL+10 


00351 


741000 




SKP 




00352 


600362 




JMP 


RANTAO-1 


00353 


201515 




LAC 


(RANTBL 


00354 


040374 




DAC 


RANDEX 


00355 


200373 




LAC 


RANCON 


00356 


745100 




SPAtCLL 




00357 


744002 




STL 




00360 


740010 




RAL 




00361 


040373 




DAC 


RANCON 


00362 


220374 




LAC« 


RANDEX 


00363 


340373 


Rantao 


TAD 


RANCON 


00364 


060374 




DAC» 


RANDEX 


00365 


200405 




LAC 


RANSAV 


00366 


740020 




RAR 




00367 


360374 




TAO» 


RANDEX 


00370 


040405 




DAC 


RANSAV 


00371 


440374 




ISZ 


RANDEX 


00372 


620346 


/ 

RANCON 


JMPo 


RANGEN 


00373 


123456 


123456 




00374 


000405 


Randex 


RaNTbL*10 




00375 


654321 


RAnTBl 


654321 




00376 


361416 




361416 




00377 


055363 




055363 




00400 


546060 




546060 




00401 


243035 




243035 




00402 


762572 




762572 




00403 


453237 




453237 




00404 


150214 




150214 




00405 


000000 


RANSAV 
/ 








/GET MS COUNT 

/STORE IN MSCTR 

/GET 1 Ms CONSTANT 

/STORE AT MILCTR 

/DELAYED 1 MS? 

/NO 

/YES. DONE DELAYING? 

/NO. 

/YES. 



.EJECT 



PAGE 



15TTY1 



00*0^ 


00PI000 


00407 


14(1412 


00410 


75PI000 


00411 


621^406 


00412 


000000 


00413 


000000 


00414 


000377 


00415 


000000 


00416 


200412 


00417 


040413 


00420 


340061 


00421 


500414 


00422 


040412 


00423 


200413 


00424 


620415 


00425 


000000 


00426 


440055 


00427 


700406 


00430 


200055 


00431 


750200 


00432 


741000 


00433 


600436 


00434 


700401 


00435 


600430 


00436 


700402 


00437 


140055 


00440 


620425 


00441 


000000 


00442 


750004 


00443 


500057 


00444 


751200 


00445 


620441 


00446 


750004 


00447 


500060 


00450 


750200 


00451 


741000 


00452 


100474 


00453 


100333 


00454 


620441 



INITPT 









OZM 


PT0 




CLA 






JMp. 


INITPT 


PT0 







PTl 







PTMSK 


377 




GETPTT 









LAC 


PT0 




DAC 


PTl 




TAD 


Kl 




AND 


PTMSK 




DAC 


PT0 




LAC 


PTl 




JMP» 


GETPTT 


/ 






PUNCH 









ISZ 


PFLaG 




TLS 






LAC 


pFLAG 




SgA'CLA 






SKP 






JMP 


.♦3 




TSF 






JMP 


.-5 




TCF 






OZM 


PFLAG 




JMP* 


PUNCH 


/ 






STALL 




LAS 






AND 


SR4MSK 




SNAICLA 






JMP» 


STALL 




LAS 






AND 


SR5MSK 




SEAiCLA 






SKP 






JMS 


OLCNT 




JMS 


OLYMS 




JMP» 


STALL 




.EJECT 





/INITIALIZE COUNT PaTTERN 
/0 TO PT0 
/0 TO AC 
/EXIT. 



/PT0 TO PTl 



/PT0+1 TO PT0 
/GET PTl 
/EXIT 



/set pflag 
/punCh/print 

/flag reset? 

/NO 

/SAVE PRINTING? 

/NO. 

/YES, CLEAR FLAG 

/0 TO PFLAG 

/EXIT. 



/READ SWITCHES 

/STALL? (ASC4) 

/NO. EXIT 

/YES. READ SWITCHES 

/LOCK ON STALL? 

/YES. 

/GENERATE RANDOM COUNT 

/STALL. 
/EXIT. 
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00455 


000000 


CHRCNT 







00456 


100346 




JMS 


Rangen 


00457 


500473 




AND 


CRMSK 


00460 


741200 




SNA 




00461 


600456 




JMP 


CHRCNT* 


00462 


740001 




CMA 




00463 


340061 




TAD 


Kl 


00464 


040053 




OAC 


SCNT 


00465 


220455 




LAC* 


CHRCNT 


00466 


040042 




DAC 


TEMP 


00467 


200053 




LAC 


SCNT 


00470 


060042 




OAC* 


TEMP 


00471 


440455 




1S2 


CHRCNT 


00472 


620455 




JMP* 


CHRCNT 


00473 


000077 


CRMSK 


77 




00474 


000000 


DLCNT 







00475 


100346 




JMS 


rangen 


00476 


500505 




AND 


OLYMSK 


00477 


741200 




SNA 




00500 


600475 




JMP 


DLCNT+1 


00501 


740001 




CMA 




00502 


340061 




TAD 


Kl 


00503 


040023 




OAC 


OELAYM 


00504 


620474 




JMP* 


OLCNT 


00505 


800277 


OLYMSK 


277 




00506 


000000 


/ 

CHCK 







00507 


040523 




DAC 


WcHK 


00510 


220506 




LAC* 


CHCK 


00511 


740001 




CMA 




00512 


340061 




TAD 


Kl 


00513 


340523 




TAD 


WCHK 


00514 


440506 




ISE 


CHCK 


00515 


750200 




SEAtCLA 




005I6 


6005^1 




JMP 


.♦3 


00517 


440506 




ISZ 


CHcK 


00520 


620506 




JMP* 


ChCk 


00521 


200523 




LAC 


WCHK 


00522 


620506 




JMP* 


CHCK 


00523 


000000 


WCHK 
/ 








/SET Random number. 

/REMOVE EXCESS BITS 
/ZERO? 



/STORE AT DESIRED ADOR 
/EXIT 



/GET Random number 

/REMOVE EXCESS BITS 
/ZERO? 

/YES 



/EXIT 



/Ac TO WCHK 

/GET Compare data 



/SET UP FOR UNEG EXIT 

/EQUAL? 

/NO. 

/yes. Set up equal exit 

/EXjT 

/RESTOrE AC 
/EXIT 



.EJECT 
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15TT' 


<1 










00524 


000000 


/ 
SYNK 









00525 


10B322 




SETLOC 






00526 


000544 




CTSK 






00527 


777400 




-400 






00530 


700322 


SYNkA 


kRA 






00531 


700301 




KgF 






00532 


600531 




JMP 


.-1 




00533 


700312 




KRB 






00534 


340054 




TAD 


MRBOUT 




00535 


750200 




SZAiCLA 






00536 


741000 




SKP 






00537 


620524 




JMP» 


SYNK 




00540 


440544 




ISZ 


CTSK 




00541 


600530 




JMP 


SYNKA 




00542 


740040 




HLT 






00543 


600525 




JMP 


Synk*i 




00544 


000000 


CTSK 









00545 


000000 


MOVE 









00546 


220545 




LAC* 


MOVE 




00547 


040566 




OAC 


FADDR 




00550 


440545 




132 


MOVE 




00551 


220545 




LAG* 


MOVE 




00552 


040567 




OAC 


taodr 




00553 


440545 




ISZ 


MOVE 




00554 


220545 




lac» 


MOVE 




00555 


040570 




DAC 


MCTR 




00556 


440545 




ISZ 


MOVE 




00557 


220566 


MOVEA 


LAC* 


FADDR 




00560 


060567 




OAC» 


TADDR 




00561 


440566 




ISE 


FADDR 




00562 


440567 




ISZ 


TADDR 




00563 


440570 




ISZ 


MCTR 




00564 


600557 




JMP 


MOVEA 




00565 


620545 




JMP. 


MOVE 




00566 


000000 


FADDR 









00567 


000000 


TADDR 









00570 


000000 


MCTR 
/ 








/-256 TO CTSK 



/START READER. 

/FLA61? 

/NO 

/READ 

/ 

/377? 

/NO. 

/YES. EXIT 



/CAN'T SYNK 
/REPEAT. 

/MOVE SUBROUTINE 
/GET AND STORE 
/"FROM" ADDR 

/GET AND STORE 
/"TO" ADDR 

/GET AND STORE 
/MOVE COUNT. 

/GET "NEW WORD" 
/STORE AT "TO" LOC. 
/UPDATE ADDRESSES 

/DONE MOVING? 

/NO. 

/YES, EXIT. 



.EJECT 



PAGE 



15TTY1 



00571 
(^0572 
00573 
e0574 
00575 

00576 
00577 
00600 
00601 

00602 
00603 

0060^ 
00605 
00606 
00607 
00610 



00611 

00612 

00613 

00614 

00615 

00616 

00617 

00620 

00621 

00622 

00623 

006^4 

00625 

00626 

00627 

00630 

00631 

00632 

00633 

00634 

00635 

00636 

00637 

00640 

00641 

00642 

00643 

00644 

00645 



200021 
100425 
20PI022 
100425 
600571 

100406 
I004I5 
100425 
600577 

100524 
140654 
100406 
700322 
100415 
100617 
600606 



140654 

100655 

700322 

100705 

100617 

600614 

000000 

040627 

100441 

700301 

600622 

700312 

700322 

100506 

000000 

600632 

600646 

440654 

600636 

750001 

040654 

750004 

500056 

751200 

600646 

200523 

740040 

200627 

740040 



/Program 3 PUNCHES 
/SYMBOLIC LOCATION 
PRG3 LAC 

JMS 

LAC 

JMS 

JMp 
/PROGRAM4 PUNCHES T 
PRG4 JMS 

JMS 

JMS 

JMP 
/PROGRAM 5 READS CO 

JMS 



PRG5 

02M 
JMS 

KRa 
SRT0A JMS 

JMS 

JMP 
/PROGRAM 6 READS Da 

/IN ptemp and ptemp 



PRG6 



SRT2A 



READCK 



SBSp 



ERRCNT 



OEM 

JMS 

KRA 

JMS 

JMS 

JMP 



DAC 

JMS 

Ksr 

JMP 

KR8 

KRa 

JMS 



JMp 

JMP 

ISZ 

JMP 

CLAjCMA 

DAC 

LAS 

AND 

SNA.'CLA 

JMP 

LAC 

HLT 

LAC 

HLT 

.EJECT 



TEST TAPE WITH CHARACTERS STOrEO IN 
PTEMP AND PTEMPi , 

PTEMP /GET C(PTEMP) 

PUNCH /PUNCH 

PTEMPI /GET C<PTEMP1) 

PUNCH /PUNCH 

PRG3 /REPEAT. 

EST Tape with binary count PaTTern 

INITPT /INITIALIZE PaTTeRN 

GETPTT /GET BINARY CHARACTER 

PUNCH /PUNCH IT 

•-2 /REPEAT. 

unt Pattern, stalls optional 

SYNK /SYNK TAPE 

ERRCTR /0 TO ERRCTR 

"^itpt /initialize binary pattern 

/staRT reader 
G^TPTT /qEt Binary number 

^^AOCK /READ AND CHECK CHaRaCtER 

SRT0A /REPEAT 

Ta from Tape and matches aGaInst characters 
1. Random delay between characters optional 

ERRCTR /0 to ERRCTR 

ALIGN 

/START READER 

GIVE /qet Character 

READCK /READ AND CHECK 

SRT2A /REPEAT 



SBSP 
STALL 



ChCK 

Errcnt 

hlttst 

ERRCTR 
.+3 

ERRCTR 

SR3MSK 

HLTTST 
WCHK 

SBSP 



/READER READY? 

/NO, REPEAT. 

/READ, START READER 



/Error. 

/OK. 

/+1 TO ERRCTR 

/7777 TO ERRCTR 
/READ SWITCHES 

/HALT ON ERROR (SR3) 

/NO 

/GET BAD CHAR 

/YES 

/GET GOOD Char 

/GOOD CHAR IN AC 
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15TT1 


^1 




00646 


750004 




00647 


750100 




00650 


620617 




00651 


200654 




00652 


740040 




00653 


620617 




00654 


000000 




00655 


000000 




00656 


700322 




00657 


700301 




00660 


600657 




00661 


700312 




00662 


740001 




00663 


340061 




00664 


040704 




00665 


340021 




00666 


751200 




00667 


600676 




00670 


200704 




00671 


340022 




00672 


751200 




00673 


600701 




00674 


750040 




00675 


600656 




00676 


740001 




00677 


040703 




00700 


620655 




00701 


140703 




00702 


620655 




00703 


000000 




00704 


000000 




00705 


000000 




00706 


440703 




00707 


600713 




00710 


140703 




00711 


200022 




00712 


620705 




00713 


750001 




00714 


040703 




00715 


200021 




00716 


620705 



HLTTST 


LAS 
SMAJCLA 






JMP» 


REAOCK 




LAC 


ERRCTR 




HLT 






JMP» 


READCK 


ErrCTr 







/ 






ALIGN 




KRA 

KSF 






JMP 


.-1 




KRB 






CMA 






TAO 


Kl 




DAC 


ATEMP 




TAD 


PTEMP 




snaJcla 






JMP 


ALl 




LAC 


ATEMP 




TAO 


PTEMPl 




SNAiCLA 






JMP 


AL2 




HLTiCLA 






JMP 


ALIGN+1 


ALi 


CMA 






DAC 


IND 




JMP» 


ALIGN 


AL2 


OZM 


IND 




JMP» 


ALIGN 


IND 







ATEMP 







/ 






GIVE 









ISZ 


IND 




JMP 


.-••4 




DZM 


IND 




LAC 


PTEMPl 




JMP* 


GIVE 




CLASCMA 






DAC 


IND 




LAC 


PTEMP 




JMP« 


GIVE 



/HALT? 

/NO. EXIT 

/GET ERHOR COUNT 

/ERROK COUNT IN aC 

/EXIT 



/READER READY? 
/READ CHARACTER 



/IS IT CHAR IN PTEMP? 

/YES. 

/NO. 

/IS IT ChAR in PTEMPl? 

/YES. 

/NO, ERROR. 

/REPEAT. 

/SET IND TO -1 

/0 TO INO 



/IND=1? 


/NO 


/YES 


/GET TEMPI 


/EXIT 


/-I TO IND 


/GET PTEMP 


/EXIT. 



.EJECT 
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15TTY1 




P10717 


10(1322 




PI0720 


000020 




00721 


000723 




00722 


600233 




00723 


000000 




00724 


000746 




00725 


100322 




00726 


000051 




00727 


776030 




00730 


750001 




00731 


700311 




00732 


740000 




00733 


740000 




00734 


740200 




00735 


600741 




00736 


44005I 




00737 


600730 




00740 


600260 




00741 


740040 




00742 


750001 




00743 


700311 




00744 


600742 




00745 


600742 




00746 


000001 




00747 


000767 




00750 


100322 




00751 


000023 




00752 


777470 




00753 


100322 




00754 


000051 




00755 


777634 




00756 


700322 




00757 


100333 




00760 


700301 




00761 


600765 




00762 


440051 




00763 


600756 




00764 


600260 




00765 


740040 



/PROGRAM 0. ASR33/35 TELETYPE BaSic INPUT TESTS 

/PROGRAM CHECKS INPUT lOT'S, INTERRUPT, ANo ReAqeR TIMING. 



PrG0 



/ 

P0TS0 



SETLOC 
KSTaRT 
P0TS0 
JMP 



SRSET 



/SET KsTArT TO INITIAL 
/ROUTINE ADDRESS 

/GO START PROGRAM. 





P0TS1 
/ISSUE 700311 OP WiTh AC=777777. AC ShQUlD gO TQ 



P0TS0A 



P0E0 



sEtloc 

CTRA 

-1750 

ClA:CmA 

700311 

NOP 

NOP 

SHA 

JMP 

IS2 

JMP 

JMP 

HLT 



P0E0 
CTRA 
P0TS0A 
CHAIN 



/-1000 TO CtRA 



/-I TO AC 
/CLEAR AC. 



/AC=0? 

/NO, ERROR. 

/DONE? 

/NO, REPEAT 

/YES, Chain 

/ERROR HALT. DID NOT 
/CLEAR AC. 
/-I TO AC 
/CLEAR AC 



CLAiCMA 
700311 
JMP .-2 
JMP .-3 

/ISSUE kra. Wait at least 200 msec for flag to set. skip on flag 

/FAILURE TO SKIP INDICATES THaT FLaG IS NOT SeT, OR KSF FAlLURf ' 



/-200 TO DELAYM 



P0TS1 


1 

P0TS2 

SETLOC 

OELAYM 

-310 




P0TS1A 


SETloC 

CTRA 

-144 




P0TS1B 


kRA 






JMS 


OLyMS 




KSF 






JMP 


P0E1 




IS2 


CTRA 




JMP 


P0TS1I 




JMP 


CHAIN 


P0E1 


HLT 





00766 600753 



JMP 



P0TS1A 



/-100 To CTRA 



/Clear ac and flag 

/DELAY 200 MS. 

/SKIP IF FLAG=1 

/ERROR 

/DONE? 

/NO, REPEAT. 

/YES, CHAIN 

/ERROR HALT. FLAG IS NOT 1, 

/OR RSF FAILED. 

/RESTART TEST. 



.EJECT 
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Yl 




00767 


00«002 




00770 


001016 




00771 


100322 




00772 


000023 




00773 


777470 




00774 


100322 




00775 


000051 




00776 


776030 




00777 


700322 




01000 


100333 




01001 


700301 




01002 


601010 




01003 


700301 




01004 


601012 




01005 


440051 




01006 


601003 




01007 


600260 




01010 


740040 




01011 


600777 




01012 


740040 




01013 


700301 




01014 


601013 




01015 


601013 



/ISSUE KRa. 
/1000 TIMES 



Wait at least 200 msecs for flag to Set 
to verify consistent skipping 



SKIP ON FLAG 



P0TS2 



P0TS2A 



P0E2A 



P0E2B 



2 

P0TS3 
SETlOC 
DELAYM 

-310 
SETlOC 
CTrA 
-1750 

kRa 

JMS 
KSF 
JMP 
KSF 
JMP 
IS2 
JMP 
JMP 
HLT 

JMP 
HLT 
KSF 
JMP 
JMP 



DLYMS 

P0E2A 

P0E2B 
CTRA 

.-3 

CHAIN 

P0TS2A 



.-1 
.-2 



/-200 TO DElAYm 



/-1000 To CTRA 



/Clear ac, flag 

/DELAY 200 MS. 

/READY? 

/NO, ERROR 

/SKIP ON FLAGal 

/NO SKIP ERROR 

/DONE? 

/NO, REPEAT 

/YES. CHAIN 

/ERR A. FLAG NOT 

/OR KSF FAILURE 



SET 



/ERR B.KSF FAILURE 
/SKIP ON FLAg=1 
/REPEAT 
/REPEAT 



.EJECT 
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15TTY1 



?1016 


000003 


01017 


001050 


0102(1 


100322 


01021 


000023 


01022 


777470 


01023 


100322 


01024 


000051 


01025 


777014 


01026 


700322 


01027 


100333 


01030 


700301 


01031 


601041 


01032 


700312 


01033 


700301 


01034 


601036 


01035 


601043 


01036 


440051 


01037 


601033 


01040 


600260 


01041 


740040 


01042 


601026 


01043 


740040 


01044 


700312 


01045 


700301 


01046 


601044 


01047 


601044 



/ISSUE kra. Wait aT leaSt 200 

/FLaG is set, reset TLaG (KRb 

/TO VERITY That no skip occur 



P0TS3 



P0TS3A 



P0E3A 



P0E3B 



3 

P0TS4 

SETLOC 

OELAYM 

-310 

setlqc 

CTRA 

-764 

KRA 

JMs 

KSF 

JMP 

KRB 

KSF 

JMP 

JMp 

IS2 

JMP 

JMP 

HIT 

JMP 
HLT 

KRB 
KSF 
JMP 
JMP 



MSECS FOR FLAG TO SeT. VERIFY THaT 
) A^D SKIP ON FLaG 50PI TIMES 
S WITH fLAg=0. 



/-2iVi TO OElAYM 



dlyms 

P0E3A 



.*2 

P0E3B 
CTRA 
.-4 
CHAIN 



P0TS3A 



.-2 

,-3 



/-500 TO CTRA 



/START READ 

/DELAY 200 Ms. 

/READY? 

/NO, ERROR. 

/YES, RESET FLAG. 

/READY? 

/N0» OK 

/YES. ErRqR 

/DONE? 

/NO. REPEAT 

/YES. CHAIN 

/ERRA. FLAG NOT SET, OR 

/RSF FAILED 

/TRY AGAIN 

/ERR B. FLaG FaILED TO ReSeT. 

/OR RSF SKIPPED ERRqnROUSLY. 

/CLEAR FLAG 

/SKIP ON FLAG 1 

/REPEAT 

/REPEAT 



•EJECT 
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'1 




01050 


000004 




01051 


001112 




01052 


100322 




01053 


000002 




01054 


001062 




01055 


703302 




01056 


700042 




01057 


740000 




01060 


700002 




01061 


601065 




01062 


700314 




01063 


740040 




01064 


601055 




01065 


100322 




01066 


000051 




01067 


776030 




01070 


100322 




01071 


000002 




01072 


001107 




01073 


700322 




01074 


700301 




01075 


601074 




01076 


700042 




01077 


740000 




01100 


740040 




01101 


100322 




01102 


000002 




01103 


001106 




01104 


700042 




01105 


740000 




01106 


601104 




01107 


440051 




01110 


601076 




01111 


600260 



/THIS ROUTINE CHECKS THaT NO 

/ano Then checks thaT the Re 



P0TS4 



P0TS4A 



P0E4A 



P0TS4B 
P0E4B 



4 

P0TS5 

SETLOC 

2 

P0E4A 

CAF 

ION 

NOP 

I or 

JMP 

lORS 

HLT 

JMP 

SETLOC 

CTRA 

-1750 

SETlOC 

2 

P0TS4C 

KRA 

KSF 

JMP 

ION 

NOP 

HLT 



SETLOC 
2 

P0TS4C- 

/SCOPE LOOP 

ION 
NOP 
JMP 



OTHER DEVICE CAN CaUSE aN INTERRUPT, 
ADER IS CAPABLE OF INTERRUPTING. 



/SET INTERRUPT RETURN 
/TO P0E4A. 



.♦4 



P0TS4A 



P0TS4C 



ISE 
JMP 
JMP 



.-2 

CTRA 
P0TS4B 

Chain 



/CLEAR ALL FLAGS 
/ENABLE INTERRUPT 

/DISABLE INTERRUPT 



/UNEXPECTED INTERRUPT 
/TRY AGAIN 
/-1000 TO CTRA 



/SET INTERRUPT RETURN 
/TO P0TS4C 

/START READER 
/WAIT FOR FLAG! 

/ENABLE INT. 

/READER FAILED TO INTERRUPT 

/OR INTERRUPT SYSTEM MALFUNCTION, 

/SET INTERRUPT RETURN 

/TO P0TS4C-I 



/DONE? 

/NO, REPEAT 

/YES, Chain 
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ISTTYl 




01112 


00(^005 




01113 


001136 




01114 


100322 




01115 


000023 




01116 


777622 




01117 


100322 




01120 


000051 




01121 


777634 




01122 


700322 




01123 


100333 




01124 


700301 




01125 


601131 




01126 


44005I 




01127 


601122 




01130 


600260 




01131 


740040 




01132 


700322 




01133 


700301 




01134 


601133 




01135 


601132 



/READER TImInG test. CHECKS THAT READER FLAG IS=1 NO LATER THAfj 

/110 MILLISECONDS ATTeR RSa INSTRUCTION IS ISSUED. 

P0TS5 

P0TS6 

/-110 TO DELAYM 



/-100 TO CTRA 



P0TS5A 



P0E5 



5 




P0TS6 




SETLOC 




DELAYM 




-156 




SETLOC 




CTRA 




-144 




KRA 




JMS 


DLyMS 


KSF 




JMP 


P0E5 


ISZ 


CTRA 


JMP 


P0TS5A 


JMP 


Chain 


HLt 




kra 




KSF 




JMP 


.-1 


JMP 


.-3 


.EJECT 





/START READER Cl^AR AC A^D FlAG 

/DELAY 110 MSECS 

/READY? 

/NO, ERROR 

/DONE? 

/NO, REPEAT 

/YES, ChAiN 

/ERROR, FLAG NOj 1 AFtER 

/110 MSECS. 

/START READER CLEAR 

/READY? 

/NO. 

/YES, START READER AGAIN 
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<1 




01136 


000006 




01137 


777777 




01140 


100322 




01141 


000051 




01142 


777400 




01143 


703302 




01144 


700322 




01145 


700301 




01146 


601145 




0II47 


7003I2 




01150 


041177 




01151 


100322 




01152 


000052 




01153 


776030 




01154 


700312 




01155 


041200 




01156 


740001 




01157 


340061 




01160 


341177 




01161 


750200 




01162 


601170 




01163 


440052 




01164 


601154 




01165 


440051 




01166 


601143 




01167 


600260 




01170 


201200 




0II7I 


740040 




01172 


201177 




01173 


740040 




01174 


601165 




01175 


700312 




01176 


601175 




01177 


000000 




01200 


000000 



/READS 256 DirFERENT CHARACTERS. EACH 
/TO VERIFY CONSISTENCY IN ReAqING fRO 



CHARACTER IS REREAD 1000 TIMES 
M TTI. 



P0TS6 



P0TS6A 



P0TS6B 



P0TS6C 



P0E6A 



6 
777777 

setloc 

CtrA 

-400 

CAF 

KRa 

KSF 

JMP 

KRB 

DAG 

SETLOC 

CTRB 

-1750 

KRB 

DAC 

CMA 

TAD 

TAD 

SZA!CLA 

JMP 

IS? 

JMP 

ISZ 

JMP 

JMP 

LAC 

HLT 

LAC 
HLT 
JMP P0TS6C 



.-1 



WTS6A 



WTS6B 

Kl 
HTS6A 

P0E6A 

CTRB 

P0TS6B 

CTRA 

P0TS6A 

CHAIN 

UTS6B 



WTS6A 



/SCOPE LOOP 

KRB 
JMP 




/-256 To CTRA 



/Clear Flags 

/start reader clear 

/READY? 
/WAIT 
/READ CHAR 

/SAVE IT 
/-1000 TO CTRB 



/SAVE 



/RESULT 0? 

/NO, ERROR. 

/REREAD 1000 TIMES? 

/NO GO REaD aGaIN 

/READ 256 CHARACTERS? 

/NO 

/YES, CHAIN 

/LOAD BAD CHAR 

/ERR A. BAD CHAR IN AC 

/PRESS CONTINUE, 

/EXPECTED CHAR IN AC 



/READ CHARACTER 
/REPEAT 



WTS6A 
WTS6B 
/ 
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01201 10PI322 

("1202 000020 

01203 001205 

01204 600233 



01205 

01206 

01207 

01210 

01211 

01212 

01213 

01214 

01215 

01216 

01217 

01220 

01221 

01222 

01223 

01224 

01225 

01226 

01227 

01230 

01231 

01232 
01233 
01234 



000000 

001235 

100322 

000023 

777470 

100322 

000051 

776030 

750000 

700406 

100333 

700401 

601227 

700401 

601231 

440051 

601222 

600260 

750040 

60I2I5 

750040 

700401 
601232 
601232 



/PROGRAM 1. ASr3 
/OUTPUT lOT'S, I 
PRGi SETLOC 

KSTaRT 
P1TS0 
JMP 
/ 

/ROUTINE 
/I. TLS AND W^iT 
/SKIP OR ERROR H/ 
/2. WITH FLAG=1, 

/Failure to skip 
PiTsa 

PlTSl 

SETLOC 

DELAYM 

-310 

SETLOC 

CTRA 

-1750 

CLA 

TLs 
JHS 
TSF 
JMP 
TSF 
JMP 
IS? 
JMP 
JMP 

HLTJCLA 
JMP 

HLT'cLa 
LOOP 
TSF 
JMP 
JMP 



3/35 TELETYPE BASIC oUTpUT TESTS. prqGrAm CHECKS 
NTERRUPT. TIMING. 

/SET KSTaRT TO INITJaL 

/ROUTINE AnoRESS 



srset 



/START PROGRAM 



aT least 200 MSECS FOR FLAG TO SET, SKIP ON FLAGrl (TSF) TSF ShO-J 

lt P1E0A Occurs, indicating flag not set, or tsf failure! 

SKIPS on flag 1000 TIMES TO TEST FOR CONSISTENT sKIppING. 
CAUSES ERROR HALT PiEBB. 



P1TS0A 



P1TS0B 



PlE0A 

P1E0B 
/SCOPE 



DLYMS 

P1E0A 

P1E0B 
CTRA 
P1TS0B 
CHAIN 

P1TS0A 



/-200 TO DELAYM 



/-1000 TO CTRA 



/CLEAR AC 

/START PRINtER/PuNCH 

/DELAY 200 MS 

/READY? 

/NO, ERROR. 

/SKIP ON FLAG 1 

/NO Skip, error 

/SKIP DONE? 

/NO, REPEAT 

/YES, CHAIN 

/ERR A. NOT READY AFTER 200 MS. 

/OR TSF FAILURE 

/ERR B' TSF Failed to skip 



.EJECT 
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01235 


C00001 


01236 


001256 


01237 


100322 


01240 


000051 


01241 


776030 


01242 


700402 


01243 


700401 


01244 


741000 


01245 


601251 


01246 


440051 


01247 


601243 


01250 


600260 


01251 


750040 


01252 


700402 


01253 


700401 


01254 


601253 


01255 


601253 



/ROUTINE 1. 

/ISSUE TcF TO CLEAR FLaG. SKIP ON FLaG 1000 TIMES TO VERIFY THaT NO 

/SKIP OCCURS WITH FLAG=0 

PlTSl 1 

PlTS2 

SETLOC /-1000 TO CTRA 

CTRA 

-1750 

TCF /ClEar Flag 

PlTSlA TSf 

SKP 

JMP PlEl 

ISZ CTRA 

JMP PlTSlA 

JMP CHAIN 
PlEl HLTJCLA /ERR. AFTER TCF, TSF INSTRUCTION 

/SKIPPED. 
/SCOPE LOOP 

TCF /CLEAR FLAG 

TSF /SKIP ON FLAG'l 

JMP .-1 

JMP .-2 
/ 

.EJECT 
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ISTTYi 



01256 

01257 

01260 

01261 

01262 

01263 

01264 

01265 

01266 

01267 

01270 

01271 

01272 

01273 

01274 

01275 

01276 

01277 
01300 



000002 

001301 

100322 

000051 

777634 

750000 

700406 

700401 

601265 

700402 

700401 

741000 

601276 

440051 

601263 

600260 

750040 

700402 
601277 



/ROUTINE 2 

/ISSUE TLS. Wait for flagi 

/SHOULD OcrUR. IF SKIP. TcF 



P1TS2 



P1TS2A 



P1E2 
/SCOPE 



? 

P1TS3 
SETLOC 
CTRA 
-144 
CLA 
TLS 
TSF 
JMP 
TCF 
TSF 
SKP 
JMP 
ISi 
JMP 
JHP 

HLT.'cLa 
LOOP 
TCF 
JMP 



CLEAR FLAG 
INSTRUCTION 



.-1 



PlE2 
CTRA 
P1TS2A 
CHAIN 



CTCF). SKIP ON FLaGI. 

(cleaR flag) Failed! 

/-I00 TO CTRA 



/pUNCH/pRiNT 
/WAIT FOR FLAGl 

/CLEAR FLAG 
/SKIP IF FLAG 1 

/SKIPPED. ERROR 
/DONE? 
/NO, REPEAT 
/YES, CHAIN 
/ERR. TCF FAILED 



NO SKIP 



TO RESET FLAG 



/CLEAR FLAG 
/REPEAT 



■EJECT 
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/ROUTINE 3. 

/This routine cHe 
/anD then checks 



01301 


(100003 


01302 


001347 


01303 


100322 


01304 


000002 


01305 


001317 


01306 


703302 


01307 


70("406 


01310 


700401 


01311 


601310 


01312 


700402 


01313 


700042 


01314 


740000 


01315 


700002 


01316 


601321 


01317 


740040 


01320 


601306 


01321 


100322 


01322 


000051 


01323 


776030 


01324 


100322 


01325 


000002 


01326 


001344 


01327 


750000 


01330 


700406 


01331 


700401 


01332 


601331 


01333 


700042 


01334 


740000 


01335 


740040 


01336 


100322 


01337 


000002 


01340 


001343 


01341 


700042 


01342 


740000 


01343 


601341 


01344 


440051 


01345 


601333 


01346 


600260 



P1TS3 



P1TS3A 



P1E3A 



P1TS3B 
P1E3B 



PITS3C 



3 

P1TS4 

SETLOC 

2 

P1E3A 

CAF 

TLS 

TSF 

JMP 

Tcr 

ION 

NOP 

lOF 

JMP 

HLT 

JMP 

SETLOC 

CTRA 

-1750 

SETlOC 

2 

P1TS3C 

CLA 

TLS 

TSF 

JMP 

ION 

NOP 

HLT 



SETLOC 

2 

P1TS3C- 

lON 

NOP 

JMP 

IS2 

JMP 

JMP 



CKS THyyT NO OTHER DEVIqE CA^ Ca^^e ^N INTERRUPT, 
THAT THE rUnCH/rr I hjTEr CAn CAUSE Afj InTErrUrT. 



/SET INTERRUPT RETURN 
/TO PlE2A 

/CLEAR ALL FLAGS. 



/CLEAR PUNCH/PRINTER FLAG 
/ENABLE INT, 



.♦3 
P1TS3A 



/DISABLE INT. 

/UNEXPECTED INTERRUPT 
/TRY AGAIN 
/-1000 TO CTRA 



/SET Interrupt return 

/TO P1TS3C 



/START PUNCH/PRINTER 
/FLAG 1? 
.-1 /WAIT. 

/PUNCH/PRINTER FAILED TO 
/INTERRUPT OR INTERRUPT 
/MALFUNCTION. 



.-2 

CTRA 

P1TS3B 

CHAIN 



/SCOPE LOOP 



/DONE? 
/NO. REPEAT 
/YES. CHAIN 
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01347 


000304 


01350 


777777 


01351 


10PI322 


01352 


000023 


01353 


777622 


01354 


100322 


01355 


000051 


01356 


777634 


01357 


700406 


01360 


100333 


01361 


700401 


01362 


601366 


01363 


440051 


01364 


601357 


0I365 


600260 


01366 


750040 


01367 


700406 


01370 


700401 


01371 


601370 


01372 


601367 



/ROUTINE 4 

/TIMING TEST. CHECKS THAT 

/AFTER TLB INSTRUCTION. 

PITS4 



P1TS4A 



P1E4 



4 




777777 




SETLOC 




DELAYM 




-156 




SETLOC 




CTRA 




-144 




TLS 




JMS 


OLyMS 


TSF 




JMP 


PlE4 


IS2 


CTRA 


JMP 


P1TS4A 


JMP 


CHAIN 


hlticla 




TLs 




TSF 




JMP 


.-1 


JMP 


.-3 



FLAG IS 1 NO LATER THAN llPI MSEqS. 



/-110 TO DELAYM 



/-100 TO CTRA 



/START PUnCH/rEAOEr 
/DELAY 110 MSECS. 
/FLAG 1? 
/NO. ERROR 

/YES. DONE? 
/NO. REPEAT 

/YES. CHAIN. 

/ERR. FLPG NOT 1 110 MSECS 
/AfrTER TLS INSTRUCTION 
/SCOPE LOOP, START PRINTER 
/WAIT FOR FLAG 1 

/REPEAT. 
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1 


/PROGRaI 

/TO cOf*' 




01373 


100322 


PrG2 




01374 


000020 






01375 


001377 






01376 


600233 


/ROUTIN 
/READ 4 
/AGAINS 




01377 


000000 


P2TS0 




01400 


001426 






01401 


100524 






01402 


100322 






01403 


000051 






01404 


770001 






01405 


100406 






01406 


100415 


P2fS0A 




01407 


041415 






01410 


700322 






01411 


700301 






01412 


601411 






0I4I3 


7003I2 






01414 


100506 






01415 


000000 


SB0 




01416 


601422 






01417 


440051 


P2TS0B 




01420 


601406 






01421 


600260 






01422 


740040 


P2E0A 




01423 


201415 






01424 


740040 






01425 


601417 





M 2. ASR33/35 

Rec^ly ReAq a 

SETLqC 
KSTART 
P2TS0 
JMP SRSET 

095 CHARACTER 
T BINARY COUN 



P2TS1 

JMS 

SETLOC 

CTRA 

-7777 

jMS 

JMS 

DAC 

KRA 

KSF 

JMP 

KRB 

JMS 



JMp 

IS? 

JMP 

JMP 

HLT 

LAC 
HLT 
JMP 



TELETYPE READER TEST. CHECKS ABILITY OF READER 
T rULL SPEED *No WiTh RANdOM STALLS. 
/SET KsTART Tq INITIAL 
/ROUTINE ADDRESS 

/START 

S, aT FULL SPEED, MaTcHING EaCH CHaRaCTER REaD 
T PATTERN 



SYNK 



INITPT 

getptt 

SB0 



.-1 
CHCK 

P2E0A 

CTRA 

P2TS0A 

CHAIN 



SB0 
P2TS0B 



/SYNC READER 
/-4095 TO CTRA 



/INITIALIZE PATTERN 

/GET Pattern character 

/STORE AT S80 

/READ 

/READY? 

/NO, WAIT 

/YES, READ 

/GO CHECK CHARACTER 



/ERROR 
/OK. DONE? 
/NO. REPEAT 
/YES, CHAIN 
/ERR HALT A, 



BAD CHAR IN AC. 



/PRESS CONTINUE. 
/CORRECT CHAR IN AC 
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15TTY1 



01426 


P100001 


01427 


001457 


01430 


100524 


01431 


100322 


01432 


000051 


01433 


774060 


01434 


100406 


01435 


100415 


01436 


041446 


01437 


700322 


01440 


100474 


01441 


100333 


0I442 


700301 


01443 


601442 


01444 


700312 


01445 


100506 


01446 


000000 


01447 


601453 


01450 


440051 


01451 


601435 


0I452 


600260 


01453 


740040 


01454 


201446 


01455 


740040 


01456 


601450 



/ROUTINE 1 

/READS 2000 CHaRaC 

/Each character re 
P2TS1 1 



TERS. RaNDEM delay BETWEEN CHARACTERS 

aO is Matched agaInst count pattern 



P2TS1A 



SBl 

P2TS1B 



P2E1A 



P2TS2 






JMS 


SYNK 


/SYNC READER. 


SETLOC 




/-2000 TO CTRA 


CTRA 






-3720 






JMS 


INITPT 


/INITIALIZE PATTERN 


JMS 


GETPTT 


/SET PATTERN CHARACTER 


dac 


SBl 




KRA 




/READ 


JMS 


dlcnt 


/GENERATE DELAY COUNT 


JMS 


OLYMS 


/DELAY 


KSF 




/WAIT FOR 


JMP 


.-1 


/READY. 


kRB 




/READ CHARACTER 


JMS 



CHCK 


/GO CHECK CHARACTER 


JMP 


P2E1A 


/ERROR 


ISi 


CTRA 


/DONE? 


JMP 


P2TS1A 


/NO. REPEAT 


JMP 


CHAIN 


/YES, CHAIN 


HLT 




/ERROR HALT a. BAD CHAR 


LAC 


SBl 


/PRESS CONTINUE 


HLT 




/CORRECT CHAR IN AC 


JMP 


P2TS1B 





IN AC 



.EJECT 
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15TTY1 



0^457 


000002 


01460 


777777 


01461 


100524 


01462 


100322 


01463 


000051 


01464 


777634 


01465 


100406 


01466 


100474 


01467 


100455 


01470 


000052 


01471 


100415 


01472 


041501 


01473 


700322 


01474 


100333 


01475 


700301 


01476 


601475 


01477 


700312 


01500 


100506 


01501 


000000 


01502 


601510 


01503 


440052 


01504 


601471 


01505 


440051 


01506 


601466 


01507 


600260 


01510 


740040 


01511 


201501 


01512 


740040 


01513 


601503 



/ROUTINE 2 

/READ l00 GROUPS 

/E^CH GROUP USES 

P2TS? 



OF CHARACTERS. EACH GROUP IS OF RANDOM LENGTH. 

A FIXED OELaY determined A^ Ra^DOM^ qELaY qHaNGES bETWEEN GROUPS. 



P2TS2A 



P2TS2B 



SB2 



P2E2A 



2 
777777 






jMS 


SYNK 


/SYNC READER 


sEjlOC 




/-100 jO CxfjA 


ctra 






-144 






jMS 


iNlTPT 


/iNlTlALliE PATTERN 


JMS 


OLCNT 


/GENERATE OELAY COUNT 


JMS 


CHRCNT 


/GENERATE AND STORE 


ctrb 




/BLOCK LENGTH 


JMS 


GETPTT 


/GET PATTERN CHARACTER 


OAC 


SB2 




KRA 




/READ 


JMS 


DLYMS 


/DELAY 


KSF 




/READY? 


JMP 


.-1 


/NO, WAIT 


KRb 




/READ CHARACTER 


JMS 


JMp 


ChCk 


/GO ChECk Character 


P2E2A 


/ERROR. 


IS? 


CTRB 


/GROUP DONE? 


JMP 


P2TS2B 


/NO. 


ISZ 


CTRA 


/YES. ALL GROUPS DONE? 


JMP 


P2TS2A 


/NO. 


JMP 


CHAIN 




hlt 




/ERR Halt a. bad chaR 

/PRESS CONTlNE. 


LAC 


SB2 




HLT 




/CORRECT CHAR IN AC 


JMP 


SB2*2 
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15TTY1 



01514 
01515 



000000 
000405 
000375 



• L 



,ENO 



NO ERROR LINES 



